#!/usr/bin/perl

use strict;
use RokuUI;

my $display = RokuUI->new(host => '192.168.0.26', port => 4444);

while (!$display->open) {
	print ("Waiting for Roku...\n");
sleep 60;
}

$display->cmd("sketch -c exit");
$display->cmd("irman off");
$display->cmd('irman dispatch CK_POWER_ON');
$display->close;

print ("Roku display reset...\n");
